HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/BUS/LN2.4.5.sit/LN2.4.5/LN Data Converter v1.2.1/card_2884.txt

Text File | 1996-04-12 | 7KB | 241 lines

-- card: 2884 from stack: in.1
-- bmap block id: 0
-- flags: 0000
-- background id: 2648
-- name:


-- part 1 (field)
-- low flags: 15
-- high flags: 0007
-- rect: left=33 top=38 right=263 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Text


-- part 2 (field)
-- low flags: 15
-- high flags: 0002
-- rect: left=33 top=10 right=32 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: File


-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=35 top=292 right=314 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Read
----- HyperTalk script -----
on mouseUp
  answer file "ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ﾂｩﾃ‡ﾃﾃ映ﾃ…[ﾃ運ﾃ‡ﾃεｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ‡ï｣ｿﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" & return & "ﾃｪﾃ催ｳpﾃ‡ﾃε液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" of type TEXT
  if it is empty then exit mouseUp
  put it into rFN
  put rFN into cd field "File"
  open file rFN
  read from file rFN until eof
  put it into cd field "Text"
  close file rFN
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=141 top=292 right=314 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Convert
----- HyperTalk script -----
on mouseUp
  put the date into dateT
  convert dateT to dateItems
  put cd field "Text" into TEXT
  put "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday" into CW
  put 99 into Ch
  repeat with N=1 to 10
    if char 1 to 3 of line N of TEXT is "竚ィN" then put 2 into Ch
    if char 1 to 4 of line N of TEXT is "竚アbg" then put 20 into Ch
    if char 1 to 3 of line N of TEXT is "竚アN" then put 1 into Ch
    if char 1 to 3 of line N of TEXT is "竚ゴN" then put 1 into Ch
    if char 1 to 3 of line N of TEXT is "竚イN" then put 1 into Ch
    if char 1 to 3 of line N of TEXT is "竚ゥN" then put 40 into Ch
    if item 1 of line N of TEXT is "竚ウS" then put 30 into Ch
  end repeat

  if Ch=99 then
    answer "ﾃ‡ﾂｱﾃ‡ﾃε映ﾃ…[ﾃ運ﾃ‡ﾃ陛嘘ﾃ嘉ｬﾃ頴ﾃ…[ﾃ曳ﾃ‡ﾃεｯKﾃｳvﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"
    exit mouseUp
  end if

  if Ch=20 then
    if char 1 to 4 of line 4 of TEXT is "竚アbg" then delete line 4 of TEXT
    repeat with N=(number of lines of TEXT) down to 4
      if line N of TEXT is empty then
        delete line N of TEXT
        next repeat
      end if
      if char 1 of line N of TEXT is "," then
        put line N of TEXT after line N-1 of TEXT
        delete line N of TEXT
        next repeat
      end if
      if char 1 to 4 of line N of TEXT is "竚アbg" then
        delete line N of TEXT
        put "," before line N of TEXT
      end if
      if char 1 to 5 of line N of TEXT is "竚エC1" then
        delete line N of TEXT
        put "竚エC1," before line N of TEXT
      end if
      if char 1 to 4 of line N of TEXT is "竚エC2" then
        delete line N of TEXT
        put "," before line N of TEXT
      end if
    end repeat
    if item 9 of TEXT is not empty and line 1 of item 10 of TEXT is not "ﾃｩﾃ甘ｬﾃｦﾃｬﾋ凖⑦ﾃｩﾃｫﾃ､iﾃｱﾂｺﾃ⑦ﾃｨ竕･ﾃｮFﾃｮ窶佚ｧﾃ愿⑴ﾃｨﾃｿﾃ･ﾃｮﾃｮ窶佚ｧﾃ愿⑴ﾃｨﾃｿﾃｨﾃｫﾃｮ窶佚ｧﾃœ" then
      put return & item 9 of TEXT after item 10 of TEXT
      put "ﾃｮNﾃ･ﾃｩﾃ⑿ﾃｮNﾃｳﾃ禿⒀ﾃ⑦ﾃｨoﾃｳﾃ ﾃｩﾃｱ" & return into item 9 of TEXT
    end if
    if item 1 of line (number of lines of TEXT)-1 of TEXT is not "竚ゥS" then
      put "竚ゥS,,,,,,,,,,,,,,," & return before line (number of lines of TEXT) of TEXT
    end if
  end if

  if Ch<10 then
    repeat with N=(number of lines of TEXT) down to 2
      put N into cd field "count"
      put line N of TEXT into LN
      if LN is empty then
        delete line N of TEXT
        next repeat
      end if
      if char 1 of LN is "," then
        delete line N of TEXT
        put LN after line N-1 of TEXT
        next repeat
      end if
      if LN is "ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ" then
        delete line N of TEXT
        next repeat
      end if
      repeat with M=(number of chars of LN)-1 down to 1
        set cursor to busy
        if char M to M+1 of LN is ", " then put empty into char M+1 of line N of TEXT
      end repeat
      if line N of TEXT is "竚イBﾃ･ﾋ堙ｧﾂｿ" then put 10 into Ch
      if item 1 of line N of TEXT is "竚ィN2" then put "竚ィN" into item 1 of line N of TEXT
    end repeat
    if Ch=2 then put "竚イBﾃ･ﾋ堙ｧﾂｿ" & return & "竚εｯiﾃｱ竅„" & return & "竚コBﾃ･ﾋ堙ｧﾂｿ" & return before last line of TEXT
  end if

  if Ch=30 then
    put CvSort(dateT) into DT
    repeat with N=(number of lines of TEXT) down to 2
      put item 1 of line N of TEXT into NT
      put offset("/",item 1 of line N of TEXT) into M
      if M=0 then next repeat
      put item 1 of dateT & char 1 to 2 of NT & char 4 to 5 of NT into NT
      if DT > NT then add 10000 to NT
      put NT into item 1 of line N of TEXT
    end repeat
  end if

  if Ch=40 then
    repeat with N=4 to (number of lines of TEXT)
      if char 1 to 2 of line N of TEXT is "竚ゥ" and item 2 of line N of TEXT is 5 then
        if item 1 of line N of TEXT is "竚ゥ0000" then next repeat
        put word 1 of line N+1 of TEXT into dateR
        if dateR is empty then next repeat
        put CvItem(dateR) into DR
        convert DR to dateItems
        put dateR && item (item 7 of DR) of CW into line N+1 of TEXT
      end if
    end repeat
  end if

  put TEXT into cd field "Text"
  put empty into cd field "count"
  answer "ﾃ映ﾃ…[ﾃ運ﾃ嘘ﾃ嘉ｬﾃ頴ﾃ…[ﾃ曳ﾃ､ﾃ†ﾃｳﾏ\"
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=337 top=291 right=313 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save
----- HyperTalk script -----
on mouseUp
  put cd field "File" into FN
  open file FN
  write cd field "Text" to file FN
  close file FN
  answer FN && "ﾃｯ竄ｬﾃｫ竏づ､ﾃ†ﾃｳﾏ\"
end mouseUp


-- part 6 (field)
-- low flags: 15
-- high flags: 0000
-- rect: left=213 top=270 right=287 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: count


-- part 7 (button)
-- low flags: 00
-- high flags: A009
-- rect: left=439 top=291 right=313 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  answer "LN Data Converter ﾃ‡ï｣ｿﾃｨIﾃｳﾏ\ﾃ‡ﾂｵﾃ‡ﾆ津‡窶｡ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" with "Yes" or "No"
  if it is "No" then exit mouseUp
  doMenu "Quit HyperCard"
end mouseUp